
(osc-write-string "" (current-output-port))
(osc-write-string "/s" (current-output-port))
(osc-write-string "/go" (current-output-port))
(osc-write-string "/OSC" (current-output-port))

(osc-write-object 4 (current-output-port))
(osc-write-object 6.7 (current-output-port))
(osc-write-object "STRING" (current-output-port))

(osc-write-type-descriptor '(6.7) (current-output-port))
(osc-write-type-descriptor '("s" 1) (current-output-port))
(osc-write-type-descriptor '(1 2 3) (current-output-port))

(osc-write-message '("/s") (current-output-port))
(osc-write-message '("/s" 5 6.7) (current-output-port))

(osc-write-bundle '(1 ("/s" 5) 
		      ("/t" 6.7))
		  (current-output-port))

(osc-write-bundle '(1 
		    ("/s" 5) 
		    (1 ("/t" 6.7)))
		  (current-output-port))

(let* ((s (open-output-u8vector))
       (t (schedule-current-time)))
  (inform "t" t)
  (osc-write-bundle (list t (list "/1" 1 1.0)) s)
  (osc-decode-bundle (get-output-u8vector s)))




